Sub RandomView()
    On Error Resume Next
    Dim ithelp_ie_1 As Object

    Set ithelp_ie_1 = CreateObject("InternetExplorer.Application")

    ithelp_ie_1.Visible = True ' 顯示IE
    Range("A1:H1") = Array("名稱", "等級", "攻擊力", "防禦力", "幸運值", "屬性", "掉落道具", "掉落裝備")
    strURL = "http://ithelp.ithome.com.tw/richman3/monster-info/id/"
    For i = 1 To 118
        ithelp_ie_1.Navigate strURL & i
        ie_wait ithelp_ie_1
        Cells(i+1, 1) = ithelp_ie_1.document.all(46).innerText
        Cells(i+1, 2) = ithelp_ie_1.document.all(48).innerText
        Cells(i+1, 3) = ithelp_ie_1.document.all(50).innerText
        Cells(i+1, 4) = ithelp_ie_1.document.all(52).innerText
        Cells(i+1, 5) = ithelp_ie_1.document.all(54).innerText
        Cells(i+1, 6) = ithelp_ie_1.document.all(61).innerText
        Cells(i+1, 7) = ithelp_ie_1.document.all(65).innerText
        Cells(i+1, 8) = ithelp_ie_1.document.all(67).innerText
    Next
End Sub
Sub ie_wait(ie_target As Object)
    iewaittime = 3
    VeryCDtimer = Now
    Do While ie_target.Busy
        DoEvents
        If Now - VeryCDtimer >= iewaittime * 1# / 86400# Then
            Exit Do
        End If
    Loop
    VeryCDtimer = Now
    Do While ie_target.document.readystate <> "complete"
        If Now - VeryCDtimer >= iewaittime * 1# / 86400# Then
            Exit Do
        End If
    Loop
End Sub

http://www.wretch.cc/album/show.php?i=apgapple&b=8&f=o1621755997.jpg
http://www.wretch.cc/album/show.php?i=apgapple&b=8&f=o1621763875.jpg&p=1
簡單分享怪物的資料
小弟等級不高，很多怪沒打過
如果有人願意提供，上面巨集可以幫忙擷取